home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)u4.d64 / val2.proc < prev    next >
Text File  |  2007-02-28  |  674b  |  33 lines
  1. 9000 // LIST "@0:VAL2.PROC"
  2. 9010 //
  3. 9020 // BY WILL BOW
  4. 9030 // C64 WEST USER GROUP
  5. 9040 // BOX 406
  6. 9050 // SANTA MONICA, CA 90406-0406
  7. 9060 //
  8. 9070 // USE THIS TO CONVERT A STRING
  9. 9080 // OF NUMBERS TO A REAL NUMBER.
  10. 9090 // WILL CONVERT FRACTIONS LIKE
  11. 9100 // "1234.94".
  12. 9110 //
  13. 9120 FUNC VAL(STR$) CLOSED
  14. 9130 REPLY:=0
  15. 9140 Z:="." IN STR$
  16. 9150 IF Z=0 THEN
  17. 9160 Y:=0
  18. 9170 ELSE 
  19. 9180 Y:=LEN(STR$)-Z+1
  20. 9190 ENDIF 
  21. 9200 FOR X:=1 TO LEN(STR$) DO
  22. 9210 IF STR$(X) IN "1234567890" THEN
  23. 9220 REPLY:=REPLY+(ORD(STR$(X))-48)*(10^(LEN(STR$)-X-Y))
  24. 9230 ELSE 
  25. 9240 Y:=Y-1
  26. 9250 ENDIF 
  27. 9260 ENDFOR X
  28. 9270 RETURN REPLY
  29. 9280 ENDFUNC VAL
  30. 9290 //
  31. 9300 // WRITTEN BY WILL BOW
  32. 9310 // BOX 406
  33.